home *** CD-ROM | disk | FTP | other *** search
/ The Fatted Calf / The Fatted Calf.iso / Modules / BackSpaceModules / Source / Polyhedra / PolyhedraViewWraps.psw < prev    next >
Text File  |  1991-12-15  |  1KB  |  87 lines
  1. defineps colourTriangle(float x1, y1, x2, y2, x3, y3, r, g, b)
  2.     r g b setrgbcolor
  3. %    1 0 0 setrgbcolor
  4. %    .666 setgray
  5.     x1 y1 moveto
  6.     x2 y2 lineto
  7.     x3 y3 lineto
  8.     x1 y1 lineto
  9.     fill
  10.     1 setgray
  11.     x1 y1 moveto
  12.     x2 y2 lineto
  13.     x3 y3 lineto
  14.     x1 y1 lineto
  15.     stroke
  16. endps
  17.  
  18. defineps outlineTriangle(float x1, y1, x2, y2, x3, y3)
  19.     1 setgray
  20.     x1 y1 moveto
  21.     x2 y2 lineto
  22.     x3 y3 lineto
  23.     x1 y1 lineto
  24.     stroke
  25. endps
  26.  
  27. defineps colourSquare(float x1, y1, x2, y2, x3, y3, x4, y4, r, g, b)
  28.     r g b setrgbcolor
  29. %    1 0 0 setrgbcolor
  30. %    .666 setgray
  31.     x1 y1 moveto
  32.     x2 y2 lineto
  33.     x3 y3 lineto
  34.     x4 y4 lineto
  35.     x1 y1 lineto
  36.     fill
  37.     1 setgray
  38.     x1 y1 moveto
  39.     x2 y2 lineto
  40.     x3 y3 lineto
  41.     x4 y4 lineto
  42.     x1 y1 lineto
  43.     stroke
  44. endps
  45.  
  46. defineps outlineSquare(float x1, y1, x2, y2, x3, y3, x4, y4)
  47.     1 setgray
  48.     x1 y1 moveto
  49.     x2 y2 lineto
  50.     x3 y3 lineto
  51.     x4 y4 lineto
  52.     x1 y1 lineto
  53.     stroke
  54. endps
  55.  
  56. defineps colourPentagon(float x1, y1, x2, y2, x3, y3, x4, y4, x5, y5, r, g, b)
  57.     r g b setrgbcolor
  58. %    1 0 0 setrgbcolor
  59. %    .666 setgray
  60.     x1 y1 moveto
  61.     x2 y2 lineto
  62.     x3 y3 lineto
  63.     x4 y4 lineto
  64.     x5 y5 lineto
  65.     x1 y1 lineto
  66.     fill
  67.     1 setgray
  68.     x1 y1 moveto
  69.     x2 y2 lineto
  70.     x3 y3 lineto
  71.     x4 y4 lineto
  72.     x5 y5 lineto
  73.     x1 y1 lineto
  74.     stroke
  75. endps
  76.  
  77. defineps outlinePentagon(float x1, y1, x2, y2, x3, y3, x4, y4, x5, y5)
  78.     1 setgray
  79.     x1 y1 moveto
  80.     x2 y2 lineto
  81.     x3 y3 lineto
  82.     x4 y4 lineto
  83.     x5 y5 lineto
  84.     x1 y1 lineto
  85.     stroke
  86. endps
  87.